DATA: lv_pernr TYPE pernr,
lv_logsys_hr TYPE logsys,
lv_rec_doc_id TYPE sdokobject,
lv_logsys_rm TYPE logsys,
lv_obj_pr TYPE sibflporb,
lv_obj_record TYPE sibflporb.
CONSTANTS:
lc_relation_type TYPE oblreltype VALUE
'Z_REC_LINK',
lc_object_type_record TYPE swo_objtyp VALUE
'RECORD',
lc_object_type_employee TYPE swo_objtyp VALUE
'BUS1065',
lc_catid_bo TYPE sibfcatid VALUE 'BO'.
* ... Ermittlung von lv_p4ernr und lv_rec_doc_id ...
lv_obj_pr-instid = lv_pernr.
lv_obj_pr-typeid = lc_object_type_employee.
lv_obj_pr-catid = lc_catid_bo.
lv_obj_record-instid = lv_rec_doc_id.
lv_obj_record-typeid = lc_object_type_record.
lv_obj_record-catid = lc_catid_bo.
TRY.
CALL METHOD cl_binary_relation=>create_link
EXPORTING
is_object_a = lv_obj_pr
ip_logsys_a = lv_logsys_hr
is_object_b = lv_obj_record
ip_logsys_b = lv_logsys_rm
ip_reltype = lc_relation_type.
CATCH cx_obl_parameter_error
cx_obl_model_error
cx_obl_internal_error.
* Ausnahmebehandlung
ENDTRY.
COMMIT WORK.